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The number of subscribers keeps climbing! From 0 in September, 
to 45 in October, 85 in November, 179 on Cristmas Eve, and now 
242 in late January! 
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Bug Reports 


1. Several readers have reported a problem with the COPY 
program in the December issue. As written, if you try to copy a 
block of lines to a point before the first line of the program, 
the block is inserted between the first and second bytes of the 
first line. Ouch! To fix it,. insert lines 2221-2225 and change 
line 2250: 


2221 LDA A2L 

2222 CMP Al1L 

2223 LDA A2H 

2224 SBC AlH 

2225 BCC .5 

2250 .5 LDA SS MOVE IN SOURCE BLOCK 


2. When I typed up Lee Meador's article for the January issue, 
I inadvertently changed one address to a crazy value. The 
address $2746 in the 4th paragraph on page 9 should be $1246. 


(Bug Reports continued on page 12.) 


Apple Noises and Other Sounds 


The Apple's built-in speaker is one of its most delightful 
features. To be Sure, it is very limited; but I have used it 
for everything from sound effects in games to music in six parts 
(weird-sounding guitar chords) and even speech. Too many ways 
to put all in one AAL article! I will describe some of the 
sound effects I have used, and maybe you can go on from there, 


The speaker hardware is very simple. A flip-flop controls the 
current through the speaker coil. Everytime you address $C030, 
the flip-flop changes state. This in turn reverses the current 
through the speaker coil. If the speaker cone was pulled in, it 
pops out; if it was out, it pulls in. If we "toggle" the state 
at just the right rate, we can make a square-wave sound. By 
changing the time between reversals dynamically, we can make 
very complex sounds. We have no control over the amplitude of 
the speaker motions, only the frequency. 


Simple Tone: ThiS program generates a tone burst of 128 cycles 
(or 256 half-cycles, or 256 pulses), with each half-cycle being 
1288 Apple clocks. Just to make it easy, let's call Apple's 
clock 1MHz. It is really a little faster, but that will be 
close enough. So the tone will be about 388 Hertz (cycles per 
second, if you are as old as me!). 


How did I figure out those numbers? To get the time for a 
half-cycle (which I am going to start calling a pulse), I added 
up the Apple 6502 cycles for each instruction in the loop. LDA 
SPEAKER takes 4 cycles. DEX is 2 cycles, and BNE is 3 cycles 
when it branches. The DEX-BNE pair will be executed 256 times 
for each pulse, but the last time BNE does not branch; BNE only 
takes 2 cycles when it does not branch. The DEY-BNE pair will 
branch during each pulse, so we use 5 cycles there. So the 
total is 4+256*5-1+5=1288 cycles. I got the frequency by the 
formula f=1/T; T is the time for a whole cycle, or 2576 
microseconds. 


100 : SIMPLE TONE 
C030- 1 8 SPEAKER -EQ $C030 
0800- AO 00 1050 TONE LDY #0 START CYCLE COUNTER 
0802- A2 0 1060 LDX #0 START DELAY COUNTER 
- AD 1070 . SPEAKER ‘TOGGLE SPEAKER 
0807- CA 1080 .2 DEX DELAY P 
0808- DO FD 1090 BNE .2 
O80A- 88 1100 DEY QUIT AFTER 128 CYCLES 
O80B- DO F7 1110 BNE .1 
O80D- 60 1120 RTS 


Apple "Bell" Subroutine: Inside your monitor ROM there is a 
subroutine at SFBE2 which uses the speaker to make a bell-like 
sound. Here is a copy of that code. Notice that the pulse 
width is controlled by calling another monitor subroutine, WAIT. 


1000 * SGUsnnanNNRISESnReneeaienenaaetat 
1936 : APPLE "BELL" ROUTINE 
1030 -OR SEBE2 IN MONITOR ROM 
1040 + TA $800 
8- 1060 WAIT ase FCA8 MONITOR DELAY ROUTINE 
C030- ets SPEAKER . 030 
FBE2— AO CO 1090 M.FBE2 LDY #192 # OF HALF-CYCLES 
FBE4~- AQ OC 1100 BELL2 LDA #12 SET UP DELAY OF 500 MICROSECONDS 
FBE6- 20 A8 FC 1110 JSR WAIT FOR A HALF CYCLE OF 1000 HERTZ 
FBE9- AD 30 CO 1120 LDA SPEAKER TOGGLE SPEAKER 
FBEC- 88 1130 DEY COUNT THE HALF CYCLE 
FBED- DO F5 1140 BNE BELL2 NOT FINISHED 
BEF—- 6 1150 RTS 


Machine-Gun Noise: What if we use a random pulse width? Then 
we get something called noise, instead of a tone. We can create 
a burst of pulses of random-sounding width by using values from 
some arbitrary place in the Apple's memory as loop counts. The 
program uses the 256 values starting at SBA0O0O (which is inside 
DOS). If you make just one burst like that, it doesn't sound 
like much. But if you make ten in a row, you get a pattern of 
repetitious random noise bursts that in this case sounds like 
machine-gun fire. Doesn't it? Well, close enough.... 


1000 *-——-------_ 
1038 i ___ MACHINE-GUN N NOISE 
C030- 1030 SPEAKER EB AKER «EQ $0030 
0000- 1020 CNIR- 
0800- A2 40 is NOISE LDX #64 LENGTH OF NOISE BURST 
0802- AS OA 1080 LDA #10 NUMBER OF NOISE BURSTS 
0804- 85 00 1090 STA CNIR 
0806- AD 30 CO 1100 .2 LDA SPEAKER ‘TOGGLE SPEAKER 
0809- BC 00 1110 LDY $BA00,X GET PULSE WIDTH PSEUDO-RANDCMLY 
080C- 88 1120 .1 DEY DELAY LOOP FOR PULSE WIDTH 
O80D- DO FD 1130 BNE .1l 
O80F- CA 1140 DEX GET NEXT PULSE OF THIS NOISE BURST 
0810- DO F4 1150 BNE .2 
0812- C6 00 1160 DEC CNIR GET NEXT NOISE BURST 
0814- DO FO 1170 BNE .2 
0816- 60 1180 RTS RETURN 


Laser "SWOOP" Sound: We can change the pulse width by making it 
go from wide to narrow in steps of 5 microseconds. It sounds 
like a low tone that gradually slides higher and higher until it 
is beyond the range of the human ear (or the Apple speaker). I 
used this program in a "Space war" game to go with the laser 
fire. Even though the sound was entirely generated before the 
laser even appeared on the screen, it looks and sounds like the 
light beam and sound are simultaneous. 


I have indicated in line 1110 that you should try experimenting 
with some other values for the maximum pulse width count. I 
have included a separate entry point at SWOOP2 to make ten 
swoops in a row. Try the various values for the maximum width 
and run each one from SWOOP2. You might also experiment with 
running the pulse width in the opposite direction (from narrow 
to wide) by changing line 1200 to INC PULSE.WIDTH. 


1000 *--———___ —___- 
1038 . LASER "SWOOP" SOUND 
C030- 1030 SPEAKER “EQ 030 
0000- 1040 PULSE.COUNT . 00 
0001- 50 PULSE.WIDTH .EQ $01 
0002- 1060 SWOOP «COUNT . 02 
0800- A9 01 1080 SWOOP LDA #1 ONE PULSE AT EACH WIDTH 
0802- 85 00 1090 STA PULSE. 
0804- A9 AO 1100 LDA #160 START WITH MAXIMUM WIDTH 
1110 * (ALSO TRY VALUES OF 40, 80, 128, AND 160.) 
0806- 85 01 1120 STA PULSE .WIDTH 
0808- A4 00 1130 ol LDY PULSE.COUNT 
O80A- AD 30 CO 1140 .2 LDA SPEAKER TOGGLE SPEAKER 
O80D- A6 01 1150 LDX PULSE. 
80F- 1160 .3 DELAY LOOP FOR ONE PULSE 
0810- DO FD 1170 . 
0812- 88 1180 DEY FOR NUMBER OF PULSES 
0813- DO FS 1190 22 AT EACH PULSE 
0815- C6 01 1200 DEC PULSE.WIDTH SHRINK PULSE WIDTH 
0817- DO EF 1210 BNE .1 TO LIMIT OF ZERO 
0819- 1220 RTS 
1330 * 
12%) : MULTI —SWOOPER 
O81A- AY OA 1260 SWOOP2 LDA #10 NUMBER OF SWOOPS 
O81C- 85 Q2 1210 STA SWOOP. 
1E- 20 00 08 1280 .1 JSR SWOOP 
0821- C6 02 1290 DEC SWOOP .COUNT 
0823- DO F9 1300 ol 
0825- 60 1310 


Another Laser Blast: This one sounds very much the same as the 
swoop of the previous program, but it uses less memory. You 
should try experimenting with the pulse widths of the first and 
last pulses in lines 1060 and 1130. You could also try changing 
the direction by substituting a DEX in line 1120. 


1000 * -————— 
1010 * ANOTHER LASER BLAST 
1020 * 
C030- 1030 SPEAKER -EQ $C030 
0800- AO OA 1050 BLAST LDy #10 NUMBER OF SHOTS 
0802- A2 40 1060 .1 LDX #64 PULSE WIDTH OF FIRST PULSE 
0804- 8A 1070 .2 TXA START A PULSE WITHIN A SHOT 
0805- 1090 .3 DEX DELAY FOR ONE PULSE 
0806- DO FD 1100 BNE .3 
O808- AA 1105 TAX 
0809- AD 30 CO 1110 LDA SPEAKER ‘TOGGLE SPEAKER 
80C- E8 1120 INX 
O80D- EO CO 1130 CPX #192 PULSE WIDTH OF LAST PULSE 
O80F- DO F3 1140 BNE .2 
0811- 88 1150 DEY FINISHED SHOOTING? 
0812- DQ EE 1160 BNE .1 NO 
0814- 60 1170 RTS 


Inch-Worm Sounds: I stumbled onto this one by accident, while 
looking for some sound effects for a lo-res graphics demo. The 
demo shows what is Supposed to be an inch-worm, inching itself 
across the screen. By plugging various values (as indicated in 
lines 1100 and 1130), I got some sounds that synchronized 
beautifully with the animation. Complete with an exhausted sigh 
at the end! 


1000 * —————— _ 
1010 * INCH-WORM SOUNDS 
1020 * rrr 
C030- 1030 SPEAKER 
0000- 1040 PULSE WIDTH 
0001- 1050 PULSE.ST 
0002- 1060 PULSE. LIMIT EO 
1070 *————_ — 
1080 INCH.WORM 
0800- A9 01 1090 LDA #1 EP TO l 
1100 * (ALSO TRY de 123° 159) 
0802- 85 O01 1110 A PULSE. 
0804- A9 BO 1120 #176 SET PULSE.WIDTH AND LIMIT TO 176 
1130 * (ALSO TRY 88) 
0806- 85 00 1140 STA PULSE .WIDTH 
0808- 85 02 1150 A PULSE.LIMIT 
O80A- AD 30 CO 1160 .1 LDA SPEAKER TOGGLE SPEAK 
080D~ A6 00 1170 LDX PULSE.WIDTH DELAY TOOP FOR PULSE WIDTH 
O80F- 48 1180 . PHA LONGER DELAY LOOP 
0810- 68 1190 PLA 
0811- CA 1200 DEX END OF PULSE? 
0812- DO FB 1210 BNE .2 NO 
0814- 18 1220 CLC CHANGE PULSE WIDTH BY STEP 
0815- A5 00 1230 LDA PULSE .WIDTH 
0817- 65 01 1240 ADC PULSE.STEP 
0819- 85 00 1250 STA PULSE .WIDTH 
081B- C5 02 1260 CMP PULSE.LIMIT UNTIL IT REACHES THE LIMIT 
O81D- DO EB 1270 BNE .1 
O81F- 60 1280 RTS 


Touch-Tones Simulator: I used this one with a telephone demo 
program. The screen shows a touch tone pad. AS you press 
digits on the keyboard, the corresponding button on the screen 
lights up (displays in inverse mode). Then the demo program 
CALLS this machine language code to produce the twin-tone sound 
that your telephone makes. It isn't perfect, you can't fool the 
Bell System. But it makes a good demo! 


I will describe the program from the top down. The four 
variables in page zero are kept ina "safe" area, inside 
Applesoft's floating point accumulator. Applesoft doesn't use 
these locations while executing a CALLed machine language 
routine, 


The Applesoft demo program stores the button number (0-9) in 
location SE7. This could be done with "POKE 231,DGT", but I had 
more fun using "SCALE=DGT". SCALE= is a hi-res graphics 
command, but all it really does is store the value as a one-byte 
integer in SE7. Since we aren't using hi-res graphics, the 
location is perfectly safe to use. 


CALL 768 gets us to line 1150, TWO.TONES. This is the main 
routine. It uses the button number to select the two tone 
numbers from LOW.TONES and HIGH.TONES. ONE.TONE is called to 
play first the low tone, then the high tone, back and forth, for 
ten times each. This iS my attempt to fool the ear, to make it 
sound like both are being played at once. 


- 5 - 


04 
04 


WWW 


C000 
Ltd ttt dd tf fd fd fea fat fd df feta fad fd fd fd fd df fl fed ppt bd rd ord rd fd frat fd rad od pt nd 


05 
05 


ee Rt St St  OOOCOOCOOCOo 


OCQOOGOOOS OOOGOOCO DOGO OOOGOOOOG OOOOOO OO OOCSOCOSSooeo 


NORWOOD IDA U1 WDE OOD UR WFO WO 


1470 


TOUCH TONES SIMULATOR 


UPTIME EQ $9E 
LENGTH Bp OF 
CHORD. TIME -E 
BUTTON -EQ SE7 SET BY "SCALE= # ” 
. USE VALUES FROM 0 THRU 9 
+ -OR $300 
TWO. TONES 
LDA #10 
STA CHORD.TIME 
23 LDX 
LDA LOW.TONES ,X 
JSR - TONE 
LDA HIG .TONES ,X 
JSR - TONE 
DEC CHORD.TIME 
BNE . 
+ RTS 
ONE . TONE 
TAY 
LDA DOWNTIME . TABLE, Y 
STA DOWNTIME 
LDA UPTIME .TABLE ,Y 
STA UPTIME 
LDA LENGTH .TABLE , Y 
‘ STA LENGTH 
PLAY LDY UPTIME 
LDA SPEAKER 
DRC LENGTH 
BES 04 FINISHED 
ol D 
BNE .l 
BEQ .2 
02 LDY DOWNTIME 
LDA SPEAKER 
DEC LENGTH 
| BEQ .4 
23 D 
BNE .3 
BEQ PLAY 
4 
DOWNTIME . TABLE 
* -HS 8E807468514942 
UPTIME . TABLE 
+ HS 8E807469514942 
LENGTH . TABLE 
A -HS 1412100F201D1A 
LOW. TONES 
«HS 03000000010101020202 
HIGH . TONES 


~HS 05040506040506040506 


ONE.TONE wiggles the speaker for LENGTH half-cycles. Each 
half-cycle is controlled by either the UPTIME or DOWNTIME 
counts. These three parameters are selected from three tables, 
according to the tone number selected by TWO.TONES. Lines 
1270-1340 pick up the values from the three tables and load the 
page zero variables. Lines 1360-1500 do the actual speaker 
motions and time everything. The purpose of having two 
routines, one for uptime and one for downtime, is to be able to 
more closely approximate the frequency. For example, if the 
loop count we ought to use is 104.5, we could use an uptime of 
104 and a down time of 105; this makes the total time for the 
full cycle correct. The redundant BEQ in line 1420 is there to 
Make the loop times for UPTIME and DOWNTIME exactly the same. 


Since you do not have my Applesoft program, which drives this, I 
wrote a Simulated drive to just "push" the buttons 0-9. Lines 
1650-1790 do this. I separated each button push by a call to 
the monitor WAIT subroutine, to make them easier to distinguish. 


1650 * 
1660 ; SIMULATED DRIVER 
FCA8- 1680 MON.WAIT .EQ SFCA8 
1690 PUNCH.ALL 
036D- AY 00 1700 LDA #0 
036F- 85 E7 1710 STA 
0371- 20 00 03 1720 .1 JSR TWO.TONES 
0374- AY 00 1730 #0 
0376- 20 A8 FC 1740 JSR MON .WAIT 
0379- E6 E7 1750 INC BUTTON 
037B- AS E7 1760 LDA BUTTON 
037D- C9 OA 1770 CMP #10 
037F- 90 FO 1780 BCC .] 
0381- 60 790 RTS 


Morse Code Output: I have always thought that computers really 
only need one output line and one input line for communicating 
with humans. I could talk to my Apple with a code key, and it 
could beep back at me. One of the first programs I attempted in 
6502 language was a routine to echo characters in Morse code, I 
looked it up about two hours ago, and shuddered at my sloppy, 
inefficient, hard to follow code. So, I wrote a new one. 


I broke the problem down into three littler ones: 1) getting 
the characters which are to be output; 2) converting the ASCII 
codes to the right number of dots and dashes; and 3) making 
tones and spaces of the right length. 


SETUP.MORSE (lines 1190-1240) links my output routine through 
the monitor output vector. Line 1240 JMPs to $3EA to re-hook 
DOS after me. 


MORSE (lines 1260-1310) are an output filter. If the character 
code is less than $BO, I don't know how to send it in Morse 
code; therefore, I just go to $FDFO to finish the output on the 
screen. Codes exist for these other characters, but I did not 
look them up. If you want a complete routine, you should modify 
line 1260 to CMP #SAO and add the extra codes to the code table 
(lines 1130-1170). 


SEND.CHAR looks up the Morse code for the character in the code 
table, and splits it into the number of code elements (low-order 
three bits) and the code elements themselves (high-order five 
bits). If a code element is zero, a short beep (dot) is 
sounded. If an element is one, three calls to the short beep 
routine make one long beep (dash). Between elements, a silence 
equal to the length of a short beep intervenes. After the last 
beep of a character, a longer silence, equal to three short 
Silences, is produced. A 00 code from the code table makes a 
Silent gap of three times the inter-character gap. 


EL.SPACE and EL.DIT are nearly identical. The only difference 
is that EL.DIT makes a sound by addressing the speaker, while 
EL.SPACE does not. The value of EL.PITCH determines the pulse 
width, and EL.SPEED determines the number of pulses for an 
inter-element-space or a short beep. If the code stream is too 
fast for you, you can slow it down by increasing either or both 
of these two numbers. 


0 
of : MORSE CODE OUTPUT 

C030- 1030 SPEAKER E 030 
Cc000- 1040 D “EO S000 

0800- 1060 SAVEX .BS 1 

0801- 1070 SAVEY .BS l 

0802- 1080 EL.COUNT .BS 1 

0803- 1090 EL. BS l 

0078- 1100 EL.SPEED “ER 120 

0050- 1110 EL.PITCH .EQ 8 

1120 * 

0804- FD 

0807~- 1D OD 05 

O8QA- 85 C5 

Q80D- F5 1130 CODES .HS FD7D3DIDODO585C5E5F5 0, 1-9 
080E- 60 60 0 

0811- 0 00 1140 «HS 000000000000 

0814- 00 42 84 

0817- A4 83 01 

81A- 24 C3 04 

081D- 02 74 A3 

Q0820- 44 C2 1150 eHS 004284A4830124C3040274A344C2 @, A-M 
0822- 82 E3 64 
0825- D4 43 03 

0828- 81 23 14 

082B- 63 94 B4 

O82E- C4 1160 HS 82E364D443038123146394B4C4 N-Z 
082F- 00 00 00 

0832- 00 00 00 113° * -HS 000000000000 

1190 SETUP.MORSE 

0835- AQ 40 1200 t 

0837- 85 36 1210 STA $36 

0839- AQ 08 1220 

083B- 85 37 1230 STA $37 

083D- 4C EA 03 i880 ‘ JMP $3EA 

0840- C9 BO 1260 MORSE CMP #SB0 SEE IF PRINTING CHAR 
0842- 90 05 1270 BCC . NO 

0844- 48 1280 PHA SAVE CHAR ON STACK 
0845- 20 4C 08 1290 JSR SEND.CHAR 

0848- 68 1300 PLA GET CHAR OFF STACK 
0849- 4C FO FD 1310 .1 JMP SFDFO 


1330 SEND.CHAR 
084C- 8E 00 08 134 STX SAVEX 
O84F- 8C 01 08 1350 STY SAVEY 
0852- 38 1360 SEC 
53- E9 BO 1370 SBC #$B0 
0855- 1380 TAX 
0856- BD 04 08 1390 LDA CODES , X 
0859- 8D 03 08 1400 STA EL.CODE 
085C- 29 07 1410 #7 GET ELEMENT COUNT 
O85E- FO 23 1420 BEQ 4 NO CODE 
0860- 8D 02 08 1430 STA EL.COUNT 
0863- OE 03 08 1440 .1 ASL EL.CODE PUT NEXT ELEMENT INTO CARRY 
0866- 90 06 | 1450 BCC .2 MAKE 'DIT' 
0868- 20 AO 08 146 JSR EL.DIT MAKE 'DAH' FROM 3 DITS 
O86B- 20 AO 08 1470 JSR EL.DIT 
O86E- 20 AO 08 1480 .2 JSR EL.DIT MAKE 'DIT' 
0871- 20 92 08 1490 JSR EL.SPACE 
0874- CE 02 08 1500 DEC EL. 
0877- DO EA 1510 BNE .1 
0879- 20 8C 08 1520 .3 JSR CH.SPACE 
087C- AE 00 08 1530 SA 
O87F- AC 01 08 1540 LDY SAVEY 
0882- 60 1550 RTS 
0883- 20 8C 08 1560 .4 JSR CH.SPACE 
0886- 20 8C 08 1570 JSR CH.SPACE 
0889- 4C 79 08 1580 3 
1590 * 
1600 CH.SPACE 
O88Cc- 20 92 08 1610 JSR EL.SPACE 
O88F- 20 92 08 1620 JSR ~ SPACE 
1630 EL.SPACE 
0892- AO 78 1640 LDY #EL.SPEED 
0894- A2 50 1650 .1 LDX #EL.PITCH 
0896- AD 00 CO 1660 LDA 
0899- CA 1670 .2 DEX 
O89A- DO FD 1680 BNE .2 
089C- 88 1690 DEY 
O89D- DO F5 1700 el 
O89F- 60 1710 RTS 
1720 *—-—_-_-_---_-------——_---_-----—---—- 
O8A0- AO 78 1730 EL.DIT LDY #EL.SPEED 
O8A2- A2 50 1740 . LDX #EL.PITCH 
O8A4—- AD 30 CO 1750 LDA SPEAKER 
O8A7-— CA 1760 .2 DEX 
O8A8- DO FD 1770 BNE .2 
O8AA- 88 1780 DEY 
O8AB- DO F5 1790 BNE .1 
O8AD- 60 1800 RTS 


Stuffing Object Code in Protected Places 


Several users of Version 4.0 have asked for a way to defeat the 
protection mechanism, so that they can store object code 
directly into the language card. One customer has a EPROM 
burner which accepts code at $D000. He wants to let the 
assembler write it out there directly, even though he could use 
the .TA directive and later a monitor move command. Or, he 
could use the .TF directive, and a BLOAD into his EPROM. 


For whatever reason, if you really want to do it, all you have 
to do is type the following patch just before you assemble: 
S$1A25:EA EA. In case you want to put it back, or check before 
you patch, what should be there is BO 28. 


Decision 


Decision Systems 
S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISANM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 


Multiplying on the 6502 


Brooke Boering wrote an excellent article, "Multiplying on the 

6502", in MICRO--The 6502 Journal, December, 1980, pages 71-74. 
If you are wondering how to do it, or you want a faster routine 
for a special application, look up that article. 


Brooke begins by explaining and timing the multiply subroutine 
found in the old Apple Monitor ROM. The time to multiply two 
16-bit values and get a 32-bit result varies from 935 to 151] 
microseconds, depending on how many "1" bits are in the 
multiplier. He proceeds to modify that subroutine to cut the 
execution time by 403%! 


Finally, he presents two limited versions which are still quite 
useful in some applications. His 8x16 multiply averages only 
383 microseconds, and his 8x8 version averages 192 microseconds. 


Here is the code for his 16x16 version, which averages 726 
microseconds. It has the same setup as the routine in the Apple 
ROM. On entry, the multiplicand should be in AUXL,AUXH 
($54,55); the multiplier should be in ACL,ACH ($50,51); whatever 
is in XTNDL,XTNDH ($52,53) will be added to the product. 
Normally, XTNDL and XTNDH should be cleared to zero before 
starting to multiply. However, I have used this routine to 
convert from decimal to binary; I put the next digit in XTNDL 
and clear XTNDH, and then multiply the previous result by ten. 
The "next digit" is automatically added to the product that way. 
(I have corrected the typographical error in the listing as 
published in MICRO.) 


1000 * ———-—_--------- 
1010 * FASTER 16X16 MULTIPLY 
1020 * BY BROOKE W. BOERING 
1030 * NEARLY AS PUBLISHED IN MICRO—THE 6502 JOURNAL 
i * PAGE 72, DECEMBER, 1980. 
0050- 1060 ACL  .EQ $50 
0051- 1070 ACH = 2 EO) $51 
0052- 1080 XTNDL EO $52 
0053- 1090 XTNDH [EO $53 
0054- 1100 AUXL -EQ 54 
0055- 1119 AUXH _1EQ $55 
O800- AO 10 1130 RMUL LDY #16 16-BIT MULTIPLIER 
0802- AS 50. ~=—_:'1140 1 LDA ACL AC * AUX) + XTND 
0804- 4A 1150 R HECK NEXT BIT OF MULTIPLIER 
0805- 90 Op _—wi1160 BCC .2 IF ZERO, DON'T ADD MULTIPLICAND 
0807- 18 1170 CLO ADD MULTIPLICAND TO PARTIAL PRODUCT 
0808- AS 52. ~—=«-1180 LDA XTNDL 
O80A- 65 54 ~—«1190 ADC AUXL 
080C- 85 52 1200 STA XTNDL 
O80E- AS 53° ~—Ss- 1310 LDA X'TNDH 
0810- 65 55 1220 ADC AUXH 
0812- 85 53 1230 STA XTNDH 
0814- 66 53 1240 .2 ROR XTNDH SHIFT PARTIAL PRODUCT 
Oso ce er i520 ROR ACH 
= J R A H 
peg oe 
- BIT 
081D- DO E3 ~=—- 1290 BNE .1 UNTIL ALL 16 
O81F- 60 1300 RTS 


1310 * OO —_——— 
1320 * TEST ROUTINE FOR MULTIPLY 
1340 SETUP.Y 
0820- A9 4C 1350 LDA #$4C PUT "JMP TESTMPY" IN $358-35A 
0822- 8D F8 03 1360 STA $3F8 
0825- A9 30 1370 LDA 
0827- 8D F9 03 1380 STA $3F9 
O82A- AS 08 1390 LDA 
Q082C- 8D FA 03 1400 STA S3FA 
082F- 60 1410 RTS 
1420 * __ 
1430 TESTMPY 
0830- AS 3C 1440 LDA $3C MOVE Al1L,AlH TO ACL,ACH 
0832- 85 50 1450 STA ACL 
0834- A5 3D 1460 LDA $3D 
0836- 85 51 1470 STA ACH 
0838- A5 3E 1480 LDA $3E MOVE A2L,A2H TO AUXL,AUXH 
083A- 85 54 1490 STA AUXL 
Q83C- A5 3F 150 LDA $S3F 
83E- 85 55 151 STA AUXH 
Q840- A5 42 1520 LDA $42 MOVE A4L,A4H TO XTNDL,XTNDH 
842- 85 52 1530 STA L 
0844- A5 43 1540 LDA $43 
846- 85 53 50 STA XTNDH 
0848- 20 00 08 1560 JSR RMUL MULTIPLY 
O84B- A5 53 1570 LDA XTNDH PRIN? 32-BIT RESULT 
084D- 20 DA FD 1580 JSR SFDDA 
0850- A5 52 1590 Ls 
0852- 20 DA FD 1600 JSR SFDDA 
0855- A5 51 1610 LDA 
857- 20 DA FD 1620 JSR SFDDA 
O85A- A5 50 1630 LDA ACL 
085C- 4C DA FD 1640 JMP SFDDA 


I wrote a test routine for the multiply, so that I could check 
it out. After assembling the whole program, I typed "MGO 
SETUP.Y" to link the control-Y Monitor Command to my test 
routine. Control-Y will parse three 16-bit hexadecimal values 
this way: vall<val2.val3cY stores vall in $42,$43; val2 in 
$3C,$3D; and val3 in S$3E,$3F. ("cY" stands for control-Y.) 


I define vall to be the initial value for XTNDL,XTNDH; this 
should normally be zero. The two values to be multiplied are 
val2 and val3. After TESTMPY receives control from the 
control-Y processor, it moves the three values into the right 
locations for the multiply subroutine. Then JSR RMUL calls the 
multiply routine. The following lines (1570-1640) print the 
32-bit result by calling a routine in the monitor ROM which 
prints a byte in hex from the A-register. 


Bug Reports (continued from page l) 


3. The Variable Cross Reference program for Applesoft from the 
November issue leaves something behind after it has run. If you 
LIST the Applesoft program after running VCR, the line number of 
the first line will come out garbage. This only happens the 
first time you use the LIST command. For some reason, typing 
CALL 1002 before the LIST will fix it. I haven't found out the 
cause or cure yet. If you find it first, let me know! 
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APPLE II™ OWNERS!! 


Tired of the Autostart ROM? Using it only to have the I,J,K,M cursor 
movement...or the Stop-List feature? What about the LACK of all of the 
other routines available in the original Monitor? Oh well, you can't 
have those TOO, right? WRONG! 


Enter XMON™ (eXpanded MONitor)...an EPROM version of the good ‘ole 
Original APPLE II™ Monitor, designed for the disk-based APPLE II™ user. 
Features include: 


*** All ESCape functions work from upper OR lower case, 
including the added I,J,K,M functions. 


*** Lowercase input STAYS lowercase. NO CONVERSION to 
uppercase before storing in memory. 


*** SINGLE-STEP and TRACE functions are restored. 
*** 16-bit MULTIPLY & DIVIDE functions are restored. 
*** STOP-LIST <Ctrl S> IMMEDIATELY halts output. 


*** <Ctrl C> terminates the output from ANY type of 
listing (e.g., APPLESOFT”, Integer or Monitor)! 


*** Two BRAND-NEW ESCape functions, <ESC P> & <ESC T, 
provide extra editing power. 


*** Plugs directly* into the Language Card, in place of 
the Autostart ROM. User MUST provide copies of DOS 
3.3 and “BASICS”, which will be updated with an image 
of XMON™ at no extra charge. 


*** For the non-Language Card user, XMON™ plugs into the 
main board with an adapter (Supplied). User removes 
Autostart ROM from the APPLESOFT™ or Integer Card 
(if so equipped). 


So...What's missing? TAPE READ & TAPE WRITE ROUTINES. Remember, XMON™ 
is for the disk-based user; when was the last time YOU used a tape 
recorder for I/0? 


Introductory Price: $50.00. Please add $1.00 for shipping. 


* Requires conversion to 2716 EPROM use, provided for on the card by 
APPLE”. Voids Card Warranty. 


APPLE, APPLE II & APPLESOFT are trademarks of Apple Computer, Inc. 
XMON is a trademark of C. J. WELMAN. 


C. J. WELMAN, P.O. BOX 5114, ANAHEIM CA 92804 (714) 540-1411 


A String Swapper for Applesoft 


Practically every program rearranges data in some way. Many 
times you must sort alphanumeric data, and Applesoft makes this 
relatively easy. At the heart of most sort algorithms you will 
have to swap two items. 


If the items are numbers, you might do it like this: MT=A(I) : 
A(I)=A(J) : A(J)=T. If the items are in string variables, you 
might use this: TS$=AS$(I) : AS(I)=AS(J) : A$(J)=T$. 


Before long, Applesoft's wonderful string processor eats up all 
available memory and your program screeches to a halt with no 
warning. You think your computer died. Just about the time you 
reach for the power switch, it comes to life again (if you aren't 
too impatient!); the garbage collection procedure has found 
enough memory to continue processing. If only Applesoft had a 
command to swap the pointers of two strings, this wouldn't 
happen. 


What are pointers? Look on page 137 of your Applesoft Reference 
Manual. The third column shows how string variables are stored 
in memory. Each string, whether a simple variable or an element 
of an array, 1S represented by three bytes: the first byte tells 
how many bytes are in the string value at this time; the other 
two bytes are the address of the first byte of the string value. 
The actual string value may be anywhere in memory. I am calling 
the three bytes which define a string a "pointer". 


All right, how can we add a string swap command? The authors of 
Applesoft thoughtfully provided us with the "&" command; it 
allows us to add as many new commands to the language as we want. 
(Last month I showed you how to add a computed GOSUB command 
using the &.) We could make up our own Swap command; perhaps 
something like &SWAP AS$(I) WITH A$(J). However, to keep it a 
little simpler, I wrote it this way: &AS$(I),AS$(J). 


The program is in two sections. The first part, called SETUP, 
simply sets up the &-vector at $3F5, $3F6, and $3F7. It stores a 
"JMP SWAP" instruction there. When Applesoft finds an ampersand 
(&) during execution, it will jump to $3F5; our JMP SWAP will 
Start up the second section. 


SWAP calls on two routines inside the Applesoft ROMS: PTRGET 
(SDFE3) and SCAN.COMMA (SDEBE). I found the addresses for these 
routines in the article “Applesoft Internal Entry Points", by 
John Crossley, pages 12-18 of the March/April 1980 issue of The 
Apple Orchard. I also have disassembled and commented the 
Applesoft ROMS, so I checked to see if there were any bad side 
effects. Both routines assume that Applesoft is about to read 
the next character of your program. PTRGET assumeS you are 
sitting on the first character of a variable name. SCAN.COMMA 
hopes you are sitting on a comma, 


SWAP merely calls PTRGET to get the address of the pointer for 
the first variable, check for an intervening comma, and then 
calls PTRGET again to get the pointer address for the second 
variable. Then lines 1350-1430 exchange the three bytes for the 
two pointers. 
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1000 * —----~-~--——---—---—----- — 
1010 * STRING SWAP FOR APPLESOFT 
1020 * "BRUN B.STRING.SWAP" TO SET IT UP; 
1939 * THEN "&AS,BS" MEANS SWAP AS AND BS. 
1050 .OR $300 
1060 TF B.STRING. SWAP 
1070 *-——-------—-------—-—--------——- 

03F5- 1080 AMPERSAND.VECTOR _-EQ $3F5 

DFE3- 1100 PIRGET .EQ SDFE3 SCAN FOR VARIABLE NAME, 
1110 * SEARCH FOR ITS ADDRESS 
1120 * LEAVE ADDRESS IN $83, $84 
He 3 NOB 

DEBE- 1150 SCAN.COMMA .EQ SDEBE IF NEXT CHARACTER IS 
1160 * IS A COMMA, SCAN OVER 
1170 * IT; IF NOT, SYNTAX ERROR. 

0085- 1190 A.PNIR .E $85 86 , 86 

0083- 1200 B.PNIR .E 

0300- A9 10 1220 SETUP LDA #SWAP SET UP AMPERSAND VECTOR 

02- 8D F6 03 1230 STA SMPERSAND .VECTOR*1 

0305- AS 03. ~-—=s«:1240 LDA /SWAP 

0307- 8D F7 03 1250 STA AM . R+2 

O30A- AX 4C ~——=S«-i1260 LDA #S4C JMP O 

030C- 8D F5 03 1270 STA AMPERSAND.VECTOR 

030F- 60 1280 . 

0310- 20 E3 DF 1300 SWAP JSR PTRGET GET POINTER TO FIRST STRING 

0313- 85 8 1310 STA A.PNIR 

0315- 84 86 1320 STY A.PNIR+1 

0317- 20 BE DE 1330 JSR SCAN.COMMA CHECK FOR COMMA 

O31A- 20 E3 DF 134 JSR PURGET 

031D- AO 02. ~=—«1350 LDY # PREPARE TO SWAP 3 BYTES 

031F- Bl 85 1360 .1 LDA i PNIR) ,Y 

0321- 48 1370 PHA 

0322- Bl 83 1380 LDA (B.PNIR) -Y 

0324- 91 85 1390 STA (A.PNER) ,Y 

0326- 68 1400 PLA 

0327- 91 83 +1410 STA (B.PNIR) ,Y 

0329- 88 1420 DEY NEXT BYTE 

032A- 10 F3.~—-: 1430 BPL .1 

032C- 60 1440 RTS RETURN 


How about a demonstration? I have a list of 20 names (all are 
subscribers to the Apple Assembly Line), and I want to sort them 
into alphabetical order. Since I am just writing this to 
demonstrate using the swap command, I will use one of the WORST 
sort algorithms: the bubble sort. 


Line 100 clears the screen and prints a title line. Line 110 
loads the swap program and calls SETUP at 768 ($0300). Line 120 
reads in the 20 names from the DATA statement in line 130, and 
calls a subroutine at line 200 to print the names in a column. 


Lines 150-170 are the bubble sort algorithm. If two names are 
out of order, they are swapped at the end of line 160. Line 180 
prints the sorted list of names in a second column. 


100 TEXT : HOME : PRINT "DEMO USE OF ‘STRING SWAP' ROUTINE" 

110 DIM A$(20): PRINT CHRS (4)"BLOAD B.STRING.SWAP": CALL 768 

120 FOR I = 1 TO 20: READ AS(I): NEXT :P = 1: GOSUB 200 

130 DATA AMES,BURKE, PUTNEY ,LEE,LEVY ,RAMSDELL,BISHOP, RANDALL,LANI 
SMAN ,LEIPER,OSLISLO,KOVACS ,MEADOR,KRIEGSMAN ,MERCIER,WHITE, LE 
VY , BLACK , SCHORNAK , STITT 

140 REM BUBBLE SORT 

150 M = 20 

160 M = M - 1:SW = 0: FOR I = 1 TOM: IF AS(I + 1) < AS(I) THEN § 
W= 1: & AS(I + 1),A$(I): REM SWAP 

170 NEXT : IF SW THEN 160 

180 P = 20: GOSUB 200: END 

200 VTAB 3: FOR I = 1 TO 20: HTAB P: PRINT AS(I): NEXT ;: RETURN 
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A Third Disassembler for the S-C Assembler II?......Lee Meador 


A couple of months back, I was reading the most recent copy of 
the Apple Assembly Line. I was horrified! For some time I had 
been working on a disassembler that would work with the S-C 
Assembler II. There before my very eyes were not one, but two, 
advertisements for disassemblers that would do the same things 
mine would do, and in some areas they would do a better job. 
Sure, my disassembler would form the source statements, put in 
the labels, take care of non-6502 machine language bytes and it 
would even provide a cross-reference listing as it went along. 
But, my program forms the source directly in memory. So, you 
can't disassemble much more than around 1.5K at a time. Secondly, 
I hadn't gotten it to the point that you could specify various 
commands and disassemble code, tables, strings, 16-bit data, etc. 
all in one pass. I had a separate program to do each one. 


After thinking about it for some time I decided to sell what I've 
got. But how could I compete with the other two disassemblers 
with more features. They are even relatively low priced. 


I did come up with a solution. (As if you hadn't guessed that by 
now.) I am offering my disassembler with the S-C source code and 
comments. In fact, you will need to assemble the program yourself 
to get it to work. If you want to join the various modules to 
Create the program I was working toward, you can do that. If you 
don't like the way I did some part of the program you are free to 
make whatever changes you like. If the code you want to 
disassemble lies in the same place in memory as the disassembler, 
then you just reassemble the program somewhere else. You ARE 
limited to the size of memory. The disassembler, the table of 
labels, the program you are disassembling and the source version 
will have to fit in memory. For large programs you should 
disassemble in 1K pieces. But, if you choose too large a piece, 
be prepared to re-boot your system. 


Let me make it clear that this disassembler works correctly. I 
have used it on thousands of bytes of machine language files, It 
does not die without cause. The source code it produces can be 
saved and when reassembled, the result matchs the original 
program. 


If you choose to order this from me you will get a 13-sector disk 
with the S-C Assembler II source code for the various programs. 
You will not get a well written manual and you will not be able 
to boot and go. But, where else can you get a working version of 
a disassembler for only $25.00 with the source code. 


Ask for Lee Meador's Disassembler. Enclose check or money order 
for $25.00 (add $5.00 if outside North America.) Your 


disassembler source code will be mailed within a day or two of 
when we receive your order. 


Lee Meador, Box 3621, Arlington, TX 76010 (817) 469-6019 
(Paid Advertisement ) 


Apple Assembly Line is published monthly by S-C SOFTWARE, P. 0. Box 5537, 
Richardson, TX 75080. Subscription rate is $12/year, in the U.S.A., Canada, 
and Mexico. Other countries add $6/year for extra postage. All material 
herein is copyrighted by S-C SOFTWARE, all rights reserved. Unless other- 
wise indicated, all material herein is authored by Bob Sander-Cederlof. 
(Apple is a registered trademark of Apple Computer, Inc.) 
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